Randomize 
dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "Rnd"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue :varValue = Int(32 * Rnd) + 1
ws.RegWrite regPath, varValue, "REG_EXPAND_SZ"
set ws = nothing
